From 1d96d9c8b4cd94a5c5bc154bc2f112466e8ed2a8 Mon Sep 17 00:00:00 2001 From: Lars Ingebrigtsen Date: Thu, 27 Jan 2011 10:27:51 +0000 Subject: [PATCH] shr.el (shr-put-color): Special-case background colours: Do put them at the blank parts at the front of the lines. --- lisp/gnus/ChangeLog | 3 +++ lisp/gnus/shr.el | 3 ++- 2 files changed, 5 insertions(+), 1 deletion(-) diff --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog index 92071dddcb7..9985891e289 100644 --- a/lisp/gnus/ChangeLog +++ b/lisp/gnus/ChangeLog @@ -4,6 +4,9 @@ 2011-01-27 Lars Ingebrigtsen + * shr.el (shr-put-color): Special-case background colours: Do put them + at the blank parts at the front of the lines. + * gnus-draft.el (gnus-draft-clear-marks): New function to be run as an exit hook to nix out all data on readedness on group exit. diff --git a/lisp/gnus/shr.el b/lisp/gnus/shr.el index 899a5defaeb..4568f45dbb5 100644 --- a/lisp/gnus/shr.el +++ b/lisp/gnus/shr.el @@ -612,7 +612,8 @@ ones, in case fg and bg are nil." (save-excursion (goto-char start) (while (< (point) end) - (when (bolp) + (when (and (bolp) + (not (eq type :background))) (skip-chars-forward " ")) (when (> (line-end-position) (point)) (shr-put-color-1 (point) (min (line-end-position) end) type color)) -- 2.30.2